home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / BASIC / 0007.ZIP / DHDEMO.BAS < prev    next >
BASIC Source File  |  1984-01-02  |  2KB  |  61 lines
  1. 10 'THIS PROGRAM DEMONSTRATES DISK HANDLER
  2. 20 'FROM THE OCTOBER ISSUE OF SOFTALK, P. 72.
  3. 30 'WRITTEN BY HOWARD GLOSSER
  4. 40 'DEFINE SEGMENT AND LOAD DISKHAND.BIN
  5. 50 'CLEAR,32768 ' THIS LINE IS NECESSARY ONLY FOR 64K MACHINES.
  6. 60 DEF SEG=&H1700 ' USE DEF SEG=&HF00 WITH MACHINES WITH LESS THEN 96K.
  7. 70 BLOAD "DISKHAND.BIN",0
  8. 80 DISK%=0
  9. 90 CLS
  10. 100 LOCATE 1,5:PRINT" ** DISK HANDLER DEMONSTRATION **":PRINT
  11. 110 '
  12. 120 'FIND DEFAULT DRIVE
  13. 130 '
  14. 140 FIND%=1:SET%=2:DISKPARM$=SPACE$(1)
  15. 150 PRINT"FIND THE DEFAULT DRIVE"
  16. 160 DISKOPT%=FIND%
  17. 170 PRINT"*** SUBROUTINE CALL"
  18. 180 CALL DISK% (DISKOPT%,DISKPARM$):SAVDRV$=DISKPARM$
  19. 190 PRINT"GOT BACK AND DEFAULT DRIVE IS "CHR$(34)DISKPARM$ CHR$(34)
  20. 200 PRINT
  21. 210 '
  22. 220 'SET DEFAULT DRIVE
  23. 230 '
  24. 240 PRINT"NOW LET'S SET A NEW DEFAULT DRIVE":LOCATE ,,1:BEEP:PRINT
  25. 250 PRINT"SPECIFY NEW DEFAULT DRIVE LETTER (A B C D:";:GOSUB 460
  26. 260 DISKPARM$=KY$:DISKOPT%=SET%
  27. 270 PRINT"*** SUBROUTINE CALL"
  28. 280 CALL DISK% (DISKOPT%,DISKPARM$)
  29. 290 PRINT"RETURN FROM SUBROUTINE AND NEW DEFAULT SHOULD BE SET"
  30. 300 '
  31. 310 ' ** FIND OUT IF IT REALLY CHANGED
  32. 320 '
  33. 330 PRINT
  34. 340 PRINT"FIND OUT IF DEFAULT DRIVE REALLY CHANGED"
  35. 350 DISKOPT%=FIND%
  36. 360 PRINT"*** SUBROUTINE CALL"
  37. 370 CALL DISK% (DISKOPT%,DISKPARM$)
  38. 380 IF DISKPARM$<>SAVDRV$ THEN 420
  39. 390 SOUND 50,7:COLOR 0,7
  40. 400 PRINT"DEFAULT DRIVE NOT CHANGED. INVALID OR SAME DRIVE LETTER SPECIFIED!"
  41. 410 COLOR 6,1:GOTO 440
  42. 420 PRINT"IT'S CHANGED! THE DEFAULT DRIVE IS NOW "CHR$(34)DISKPARM$ CHR$(34)
  43. 430 SOUND 500,1:SOUND 400,1
  44. 440 END
  45. 450 '
  46. 460 '  **** KEY-IN ROUTINE
  47. 470 '
  48. 480 KY$=INKEY$:IF KY$="" THEN 480
  49. 490 '
  50. 500 ' CHECK FOR SMALL OR CAPITAL LETTERS
  51. 510 '
  52. 520 IF KY$<CHR$(97) OR KY$>CHR$(122) THEN 570
  53. 530 '
  54. 540 '  ** CHANGE LOWERCASE TO UPPERCASE
  55. 550 '
  56. 560 KY$=CHR$(ASC(KY$)-32)
  57. 570 '
  58. 580 PRINT KY$
  59. 590 RETURN
  60. 600 END' OF PROGRAM.
  61.